library(readxl)
library(dplyr)
library(flexdashboard)
library(plotly)
# Definir la ruta completa al archivo CSV
ruta_archivo <- "C:/Users/Keneth Ruiz/OneDrive/Documentos/GitHub/Data-Product/Lab1/tienda.csv"

# Importar el archivo CSV
datos_tienda <- read.csv(ruta_archivo)
# Calcular ventas totales por segmento
ventas_por_segmento <- datos_tienda %>%
  group_by(Segment) %>%
  summarize(VentasTotales = sum(Sales))
ventas_por_segmento
# A tibble: 3 × 2
  Segment     VentasTotales
  <chr>               <dbl>
1 Consumer         1161401.
2 Corporate         706146.
3 Home Office       429653.
# Crear el gráfico pie chart
grafico_pie <- plot_ly(ventas_por_segmento, labels = ~Segment, values = ~VentasTotales, type = "pie")
# Mostrar el gráfico
grafico_pie